Dit voorbeeld maakt gebruik van de functie Shell om de toepassing Rekenmachine te starten die bij Microsoft Windows wordt geleverd. Met de instructie SendKeys worden toetsaanslagen doorgegeven om bepaalde getallen op te tellen, waarna de Rekenmachine wordt afgesloten. (Om het voorbeeld te kunnen zien, plakt u het in een procedure en start u de procedure. Omdat AppActivate de focus verplaatst naar de toepassing Rekenmachine, kunt u de programmacode niet stapsgewijs doorlopen.) Op de Macintosh gebruikt u in plaats van de Windows Rekenmachine een Macintosh-toepassing die toetsenbordinvoer accepteert.
Dim ReturnValue, I
ReturnValue = Shell("CALC.EXE", 1) ' Start Rekenmachine.
AppActivate ReturnValue ' Activeert de Rekenmachine.
For I = 1 To 100 ' Maakt een lus die als teller fungeert.
SendKeys I & "{+}", True ' Stuurt toetsaanslagen naar Rekenmachine
Next I ' om elke waarde van I op te tellen.
SendKeys "=", True ' Leest eindtotaal.
SendKeys "%{F4}", True ' Verstuurt ALT+F4 om de Rekenmachine te sluiten.